(byte-compile-from-buffer): Set float-output-format to

nil, not "%.20e", since nil is guaranteed to not lose info on output.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 19efb5db0854c5e9923f971f14080650b3bed6dd..d2b9659a70864b5d7bc8d720b6fb09bee9aeaf1e 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1249,7 +1249,7 @@ With argument, insert value in current buffer after the form."
   ;; buffer --> output-buffer, or buffer --> eval form, return nil
   (let (outbuffer)
     (let (;; Prevent truncation of flonums and lists as we read and print them
-         (float-output-format "%.20e")
+         (float-output-format nil)
          (case-fold-search nil)
          (print-length nil)
          ;; Simulate entry to byte-compile-top-level